home *** CD-ROM | disk | FTP | other *** search
- on mouseUp
- global nVr
- if rollOver(25) then
- set the member of sprite 25 to member "BoutMod_3_A/1" of castLib "elementos graficos"
- puppetSprite(25, 0)
- updateStage()
- set nVr to 1
- go("ini vr")
- end if
- end
-
- on mouseDown
- repeat while the stillDown
- puppetSprite(25, 1)
- if rollOver(25) then
- set the member of sprite 25 to member "BoutMod_3_B/1" of castLib "elementos graficos"
- else
- set the member of sprite 25 to member "BoutMod_3_A/1" of castLib "elementos graficos"
- end if
- updateStage()
- end repeat
- end
-